home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 July / Ahoy_Magazine_88-07_1988_Double_L.d64 / Tomb Of Horror (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  82 lines
  1. 10 sa=49152:printchr$(147)chr$(8)chr$(14)
  2. 20 ck=0:fori=sa to sa+251:read a:pokei,a:ck=ck+a:nexti
  3. 30 if ck<>33715 then print"data error.":stop
  4. 40 dim a$(50):poke53280,0:poke53281,0:print"[147]"
  5. 50 fori=1to50:reada$(i):next
  6. 60 poke820,60:poke821,200:rem --- scroll speed ---
  7. 70 poke250,6:rem --- text color ---
  8. 75 rem --- a$(20)="" means last string ---
  9. 80 a$(1)=mid$(a$(1),1):sys49152
  10. 90 print"[147]load"chr$(34)"tomb"chr$(34)",8":print"run":poke198,10
  11. 95 forx=631to640:pokex,13:next
  12. 100 print"";:end
  13. 60300 data 165,250,160,0,141,134
  14. 60310 data 2,153,0,216,153,0
  15. 60320 data 217,153,0,218,153,0
  16. 60330 data 219,200,208,241,165,71
  17. 60340 data 133,253,141,54,3,165
  18. 60350 data 72,133,254,141,55,3
  19. 60360 data 173,17,208,41,248,141
  20. 60370 data 17,208,160,0,177,253
  21. 60380 data 153,250,0,200,192,3
  22. 60390 data 144,246,165,250,208,31
  23. 60400 data 173,54,3,133,253,173
  24. 60410 data 55,3,133,254,24,144
  25. 60420 data 227,169,32,160,0,153
  26. 60430 data 192,7,200,192,40,144
  27. 60440 data 248,169,27,141,17,208
  28. 60450 data 96,169,32,160,0,153
  29. 60460 data 192,7,200,192,40,144
  30. 60470 data 248,162,24,160,0,24
  31. 60480 data 32,240,255,160,0,177
  32. 60490 data 251,32,210,255,200,198
  33. 60500 data 250,208,246,160,7,132
  34. 60510 data 250,173,17,208,41,240
  35. 60520 data 24,101,250,141,17,208
  36. 60530 data 173,52,3,133,251,56
  37. 60540 data 144,154,162,10,202,208
  38. 60550 data 253,198,251,208,249,173
  39. 60560 data 18,208,208,251,136,192
  40. 60570 data 255,208,216,173,17,208
  41. 60580 data 41,248,24,105,7,141
  42. 60590 data 17,208,165,253,24,105
  43. 60600 data 3,133,253,144,2,230
  44. 60610 data 254,32,228,255,240,8
  45. 60620 data 133,2,169,27,141,17
  46. 60630 data 208,96,160,0,185,40
  47. 60640 data 4,153,0,4,200,208
  48. 60650 data 247,185,40,5,153,0
  49. 60660 data 5,200,208,247,185,40
  50. 60670 data 6,153,0,6,200,208
  51. 60680 data 247,185,40,7,153,0
  52. 60690 data 7,200,208,247,172,53
  53. 60700 data 3,162,10,202,208,253
  54. 60710 data 136,208,248,24,144,148
  55. 61000 rem --- text to scroll ---
  56. 61010 data " "," "," ","[196]eep, deep under the sunlit world lies"
  57. 61020 data "the place of nightmare, where your "
  58. 61030 data "worst fears materialize into reality..."
  59. 61040 data "[212]his place is known to mortals as the"
  60. 61050 data "[212]omb of [200]orror. [193]ll shadows dwell there"
  61. 61060 data "and all dark things rest their twisted"
  62. 61070 data "souls in the cool passages therein."
  63. 61080 data " ","[201]f you are stern of heart, and daring"
  64. 61090 data"and foolhardy...you might venture there"
  65. 61100 data"to find a treasure...a stone forged by"
  66. 61101 data"alchemists in the mists of antiquity,"
  67. 61102 data"a stone so powerful that demons from"
  68. 61103 data"the underworld lusted for it and "
  69. 61104 data"destroyed cities to obtain it..."
  70. 61105 data" ","[212]he [193]lchemy [211]tone..."," "
  71. 61120 data " ","[201]t turns coal into gold, gold into"
  72. 61130 data"diamonds, diamonds into gems so"
  73. 61140 data"beautiful and brilliant that no tongue"
  74. 61150 data"can express it."
  75. 61160 data" "," ","[197]nter now, [193]dventurer, and find death,"
  76. 61170 data"despair, or destiny. [212]he gates are open"
  77. 61180 data"and a dry, withered claw beckons you"
  78. 61190 data"forth into the black maw..."," "," "
  79. 61195 data"  [212]  [207]  [205]  [194]    [207] [198]    [200]  [207]  [210]  [210]  [207]  [210]"
  80. 61200 data" "," "," "," ","[208]ress any key to load game...."
  81. 61210 data" "," "," "," "," "," "," "," "," ",""
  82.